home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / dirlist.lha / dirlist / examples / DirList_Example.e
Text File  |  1995-10-29  |  687b  |  27 lines
  1. MODULE 'Fabio/DirList_oo'       -> Our MAGIC module!
  2.  
  3. PROC main()
  4.   DEF dl:PTR TO dirlist         -> Instance of our DirList object
  5.  
  6.   NEW dl.dirlist()              -> Here we initailize it!
  7.  
  8.   IF dl.setdir('work:')         -> Set the dir we wish to scan!
  9.       WriteF('Reading...\n')
  10.       dl.read()                 -> Scan it!
  11.       WriteF('Sorting!\n')
  12.       dl.sort(TRUE)             -> Sort it!
  13.  
  14.       WriteF('Done!\n')
  15.  
  16.       IF dl.first()             -> Show It!
  17.         REPEAT
  18.           WriteF('\s\n',dl.name())
  19.         UNTIL dl.succ()=FALSE
  20.       ENDIF
  21.   ENDIF
  22.  
  23.   END dl            -> Always remember to END an OBJECT!!!
  24.   CleanUp()         -> Let's Keep Things Clean!
  25. ENDPROC
  26.  
  27.